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PPP PPP LLL II] ROR RRR TTT LLL 
PPP PPP LLL II] RRR RRR TTT LLL 

PPP PPP LLL II] dd TTT LLL 
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PPPPPPPP LL I] PPPPPPPP RRRRRRRR 00 00 TT EEEEEEEE cc 
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PP LL I] PP RR RR 00 00 TT EE CC cece 
PP LL I] PP RR RR 00 00 TT EE cc cece 
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uy ereteches procedure(display_ptr,protfixb) options(ident('1-001')); 
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s* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
#* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
** ALL RIGHTS RESERVED. 


** THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
L DANCE vite THE TERMS OF SUCH Lint AND ahd 3 


® 
* 
* 
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* 
* 
* 
® 
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** COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
** OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
** TRANSFERRED. * 
* 

** THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
** AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
** CORPORATION. * 
® 
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*® 


** DIGITAL ASSUMES NO RESPONS “| 
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** SOFTWARE ON EQUIPMENT WHICH 
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REAR ARARA AAA RERER AREER AA AAA A AAA AA TATA TATA ATE eee RARE 
facility: VAX-11 PL/I RUNTIME LIBRARY 


abstract: This routine converts the protection field of a file into 4 char(4) 
varying strings containing the characters R, W, E and D. 


author: C Spitz 
date: 16-JUL-1980 
«/ 


/* external definitions */ 
Zinclude plifildsp; 
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1 

178 : /* parameter declarations */ , ; : 

1 dcl protfixb fixed bin(15), /* protection field of file */ 
: : display_ptr pointer; /* address of the display block */ 
182 ; /* local data - automatic */ ; 

’ 3 dcl (i,j) fixed bin(31); 

185 | /* local data = static */ a 

: dcl letter (0:3) char static init('R','W',"E*,'D'); 

1 : /* based storage */ 

1 dcl chars(0:3) char(4) var : 

1 based(addr(display_ptr -> system_protection)); 
: dcl protect(0:15) bit based(addr(protfixb)); 

1 


wn 


do i = 0 to 3; 
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1 to 3: 

4 if “protect(4*i+j) then chars(i) = chars(i)iiletter(j); 
19 end; 

198 : 

199 


1 end; 
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